Celestin Apprentice 5/Apprentice-Release5.iso/Environments/SmallEiffel 0.3.3/SmallEiffel 68k/lib_test/cat.e

Text File | 1996-06-13 | 457 b | 29 lines | [TEXT/EDIT]

-- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C)
-- Dominique COLNET and Suzanne COLLIN -- [e-mail]
--
class CAT

inherit
   QUADRUPED
      redefine fornicate_with, is_cat
      end;

feature

   is_cat: BOOLEAN is
      do
     Result := true;
      end;

   fornicate_with(quadrupede: CAT): CAT is
      do
         Result := Current;
      end;

   cry is
      do
     std_output.put_string("MIAOU");
      end;

end -- CAT